home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / byt85jun.lbr / SWITCH.BQS / SWITCH.BAS
Encoding:
BASIC Source File  |  1985-09-15  |  1.6 KB  |  49 lines

  1. 10 REM ***********************************************************************
  2. 20 REM "SWITCH" graphics design aid to support simultaneous graphics and text
  3. 30 REM display for the IBM PC by Werner Grunbaum, July, l984.
  4. 40 REM ***********************************************************************
  5. 50 KEY OFF
  6. 60 KEY 4,"GOSUB 8000"+CHR$(13) 'Switch to Monochrome Monitor
  7. 70 KEY 5,"GOSUB 9000"+CHR$(13) 'Switch to Color monitor, medium resolution
  8. 80 LOCATE 25,1
  9. 90 PRINT "1:LIST 2:RUN 3:LOAD 4:MONO 5:COLOR"
  10. 100 DEF FNY(Y)=CINT(199-(Y*199))
  11. 110 DEF FNX(X)=CINT(319*X)
  12. 120 IF FLAG=1 THEN GOTO 150 'Displays graphics on color monitor
  13. 130 FLAG=1: GOSUB 9000
  14. 140 '
  15. 150 '                 Begin graphics text at Line 1000.
  16. 7960 '
  17. 7970 LOCATE 1,1  'Sets graphics image at Row l,Col. 1, for printing
  18. 7980 GOTO 10000
  19. 7990 '
  20. 8000 '                Switch to Monochrome Monitor
  21. 8010 '
  22. 8020 DEF SEG=0
  23. 8030 POKE &H410, (PEEK(&H410) OR &H30)
  24. 8040 SCREEN 0
  25. 8050 WIDTH 40
  26. 8060 WIDTH 80
  27. 8070 LOCATE ,,1,12,13
  28. 8080 LOCATE 25,1: PRINT "1:LIST  2:RUN  3:LOAD 4:MONO display 5:COLOR display"
  29. 8090 LOCATE 1,1: PRINT "Ready for text editing at Line 1000": LIST 1000-7500
  30. 8100 RETURN
  31. 8110 '
  32. 9000 '                Switch to Color Monitor
  33. 9010 '
  34. 9020 PRINT "Color subroutine reached."
  35. 9030 DEF SEG=0
  36. 9040 POKE &H410, (PEEK(&H410) AND &HCF) OR &H10
  37. 9050 SCREEN 1,0,0,0
  38. 9060 SCREEN 0
  39. 9070 WIDTH 40
  40. 9080 LOCATE ,,1,6,7
  41. 9090 SCREEN 1,0: COLOR 1,2
  42. 9100 LOCATE 25,1:PRINT "1:LIST 2:RUN 3:LOAD 4:MONO 5:COLOR"
  43. 9110 GOTO 100
  44. 9120 RETURN
  45. 10000 END
  46. 090 SCREEN 1,0: COLOR 1,2
  47. 9100 LOCATE 25,1:PRINT "1:LIST 2:RUN 3:LOAD 4:MONO 5:COLOR"
  48. 9110 GOTO 100
  49. 9120